home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / dev / misc / getref_i.lha / GetRefIQ / Rexx / GetRefIQ.ced
Text File  |  1997-01-27  |  817b  |  58 lines
  1. /* GetRefIQ from CEd, or how to make life easier...
  2.  *
  3.  * GenIndex, GetRefIQ (c) by Chyras/NegativeIQ
  4.  * This script (c) by Cromax/Alchemy
  5.  * $VER: GetRefIQ.ced 1.00 (96.12.12)
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10. OPTIONS FailAt 11
  11. ADDRESS "rexx_ced"
  12.  
  13. 'Make Screen Public'
  14. STATUS PUBSCREENNAME
  15. screen_name = RESULT
  16.  
  17. 'Prev word'
  18. 'Delete word'
  19.  
  20. /* Contents of delete buffer */
  21. STATUS 62
  22. key_word = RESULT
  23.  
  24. ADDRESS "GetRefIQ"
  25. GRIQ_PUBSCREEN screen_name
  26. GRIQ_FIND key_word
  27.  
  28. Answer = RC
  29. key_word = RESULT
  30. kw_file = RESULT2
  31.  
  32. ADDRESS "rexx_ced"
  33.  
  34. IF (Answer == 0) | (Answer == 4) | (Answer == 10) THEN DO
  35.   'Undo'
  36.   EXIT 0
  37. END
  38.  
  39. IF Answer == 1 THEN DO
  40.     TEXT key_word
  41.   EXIT 0
  42. END
  43.  
  44. IF Answer == 2 THEN DO
  45.     'Undo'
  46.   'Open New'
  47.   'Open' kw_file
  48.   EXIT 0
  49. END
  50.  
  51. IF Answer == 3 THEN DO
  52.   TEXT key_word
  53.   'Open New'
  54.   'Open' kw_file
  55.   EXIT 0
  56. END
  57.  
  58.